﻿Imports System.ComponentModel

Namespace Examples

	<DisplayName("Example Console Lab")>
	<Description("A cross-platform lab with input and output.")>
	Public NotInheritable Class ExampleConsoleLab
		Inherits BaseConsoleLab

		Protected Overrides Sub Main()
			TraceLine("Call the TraceLine method to write messages to the console.")
			TraceLine()

			TraceSuccess("Call the semantic")
			TraceError("Trace* methods")
			TraceWarning("to write messages")
			TraceFailure("in various colors.")

			TraceLine()
			TraceLine("Call the WaitForKey method to consume the next key press.")
			TraceLine("Press a key...")

			Dim key As ConsoleKeyInfo = WaitForKey()

			TraceLine()
			TraceLine("You pressed: {0}", key.Key)

			TraceLine()
			TraceLine("Call the PressAnyKeyToContinue method to pause the lab.")

			PressAnyKeyToContinue()

			TraceLine()
			TraceLine("Call the UserInput method to acquire user input.")

			Dim input As String = UserInput("Enter text> ")

			TraceLine()
			TraceLine("You entered: {0}", input)
		End Sub

	End Class

End Namespace